unit ADC;


interface

    Type    buf_fr =  array[1..12000] of integer;

     (* funcoes STD-5012 declaradas publicas pelo arquivo AD_pas5.OBJ *)

   procedure   adinit        (var adsta : integer);

   procedure   adini         (bd : integer);

   procedure   adconf        (bd, conf : integer);

   procedure   adtmo         (bd, tmo : integer);

   procedure   adganho       (bd, ganho : integer);

   procedure   admodo        (bd, modo : integer);

   procedure   adhabint     (bd, cnt : integer);

   procedure   addesabint   (bd : integer);

   procedure   adlerstatus  (bd : integer;
                                var status : integer);

   procedure   adselcanal   (bd, canal : integer);

   procedure   adler         (bd : integer;
                                var dado : integer);

   procedure   adseller     (bd, canal : integer;
                                var dado : integer);

   procedure   adlerfr      (bd : integer;
                                var adbuf : buf_fr;
                                tam : integer);

   procedure   adlercanais  (bd : integer;
                                var adbuf : buf_fr;
                                inicial, canais : integer);

   procedure   addefbuffer  (bd : integer;
                                var adbuf : buf_fr;
                                tam : integer);

implementation

{$L AD_pas5.OBJ  }

   procedure   adinit;       external;
   procedure   adini;        external;
   procedure   adconf;       external;
   procedure   adtmo;        external;
   procedure   adganho;      external;
   procedure   admodo;       external;
   procedure   adhabint;     external;
   procedure   addesabint;   external;
   procedure   adlerstatus;  external;
   procedure   adselcanal;   external;
   procedure   adler;        external;
   procedure   adseller;     external;
   procedure   adlerfr;      external;
   procedure   adlercanais;  external;
   procedure   addefbuffer;  external;

end.
